unit Smiles;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, ExtCtrls, StdCtrls, ImgList, ComCtrls, ToolWin;

const EMOCOUNT = 86;

type
  TSmileF = class(TForm)
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    ToolButton10: TToolButton;
    ImageList1: TImageList;
    ToolButton11: TToolButton;
    ToolButton12: TToolButton;
    ToolButton13: TToolButton;
    ToolButton14: TToolButton;
    ToolButton15: TToolButton;
    ToolButton16: TToolButton;
    ToolButton17: TToolButton;
    ToolButton18: TToolButton;
    ToolButton19: TToolButton;
    ToolButton20: TToolButton;
    ToolButton21: TToolButton;
    ToolButton22: TToolButton;
    ToolButton23: TToolButton;
    ToolButton24: TToolButton;
    ToolButton25: TToolButton;
    ToolButton26: TToolButton;
    ToolButton27: TToolButton;
    ToolButton28: TToolButton;
    ToolButton29: TToolButton;
    ToolButton30: TToolButton;
    ToolButton31: TToolButton;
    ToolButton32: TToolButton;
    ToolButton33: TToolButton;
    ToolButton34: TToolButton;
    ToolButton35: TToolButton;
    ToolButton36: TToolButton;
    ToolButton37: TToolButton;
    ToolButton38: TToolButton;
    ToolButton39: TToolButton;
    ToolButton40: TToolButton;
    ToolButton41: TToolButton;
    ToolButton42: TToolButton;
    ToolButton43: TToolButton;
    ToolButton44: TToolButton;
    ToolButton45: TToolButton;
    ToolButton46: TToolButton;
    ToolButton47: TToolButton;
    ToolButton48: TToolButton;
    ToolButton49: TToolButton;
    ToolButton50: TToolButton;
    ToolButton51: TToolButton;
    ToolButton52: TToolButton;
    ToolButton53: TToolButton;
    ToolButton54: TToolButton;
    ToolButton55: TToolButton;
    ToolButton56: TToolButton;
    ToolButton57: TToolButton;
    ToolButton58: TToolButton;
    ToolButton59: TToolButton;
    ToolButton60: TToolButton;
    ToolButton61: TToolButton;
    ToolButton62: TToolButton;
    ToolButton63: TToolButton;
    ToolButton64: TToolButton;
    ToolButton65: TToolButton;
    ToolButton66: TToolButton;
    ToolButton67: TToolButton;
    ToolButton68: TToolButton;
    ToolButton69: TToolButton;
    ToolButton70: TToolButton;
    ToolButton71: TToolButton;
    ToolButton72: TToolButton;
    ToolButton73: TToolButton;
    ToolButton74: TToolButton;
    ToolButton75: TToolButton;
    ToolButton76: TToolButton;
    ToolButton77: TToolButton;
    ToolButton78: TToolButton;
    ToolButton79: TToolButton;
    ToolButton80: TToolButton;
    ToolButton81: TToolButton;
    ToolButton82: TToolButton;
    ToolButton83: TToolButton;
    ToolButton84: TToolButton;
    ToolButton85: TToolButton;
    ToolButton86: TToolButton;
    procedure ToolButton1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    emotes: array [1..EMOCOUNT] of string[11];
  public
    { Public declarations }
  end;

var
  SmileF: TSmileF;

implementation

uses Main;

{$R *.dfm}

procedure TSmileF.FormCreate(Sender: TObject);
begin
  emotes[1]  := 'smile';
  emotes[2]  := 'sad';
  emotes[3]  := 'laugh';
  emotes[4]  := 'cool';
  emotes[5]  := 'surprised';
  emotes[6]  := 'wink';
  emotes[7]  := 'cry';
  emotes[8]  := 'sweat';

  emotes[9]  := 'speechless';
  emotes[10] := 'kiss';
  emotes[11] := 'tongueout';
  emotes[12] := 'blush';
  emotes[13] := 'wonder';
  emotes[14] := 'snooze';
  emotes[15] := 'dull';
  emotes[16] := 'inlove';

  emotes[17] := 'grin';
  emotes[18] := 'talk';
  emotes[19] := 'yawn';
  emotes[20] := 'puke';
  emotes[21] := 'doh';
  emotes[22] := 'angry';
  emotes[23] := 'wasntme';
  emotes[24] := 'party';

  emotes[25] := 'worry';
  emotes[26] := 'mmm';
  emotes[27] := 'nerdy';
  emotes[28] := 'lipssealed';
  emotes[29] := 'hi';
  emotes[30] := 'call';
  emotes[31] := 'devil';
  emotes[32] := 'angel';

  emotes[33] := 'envy';
  emotes[34] := 'wait';
  emotes[35] := 'hug';
  emotes[36] := 'makeup';
  emotes[37] := 'giggle';
  emotes[38] := 'clap';
  emotes[39] := 'think';
  emotes[40] := 'bow';

  emotes[41] := 'rofl';
  emotes[42] := 'whew';
  emotes[43] := 'happy';
  emotes[44] := 'smirk';
  emotes[45] := 'nod';
  emotes[46] := 'shake';
  emotes[47] := 'punch';
  emotes[48] := 'emo';

  emotes[49] := 'no';
  emotes[50] := 'yes';
  emotes[51] := 'handshake';
  emotes[52] := 'skype';
  emotes[53] := 'heart';
  emotes[54] := 'brokenheart';
  emotes[55] := 'mail';
  emotes[56] := 'flower';

  emotes[57] := 'rain';
  emotes[58] := 'sun';
  emotes[59] := 'time';
  emotes[60] := 'music';
  emotes[61] := 'movie';
  emotes[62] := 'phone';
  emotes[63] := 'coffee';
  emotes[64] := 'pizza';

  emotes[65] := 'cash';
  emotes[66] := 'muscle';
  emotes[67] := 'cake';
  emotes[68] := 'beer';
  emotes[69] := 'drink';
  emotes[70] := 'dance';
  emotes[71] := 'ninja';
  emotes[72] := 'star';

  emotes[73] := 'mooning';
  emotes[74] := 'finger';
  emotes[75] := 'bandit';
  emotes[76] := 'smoke';
  emotes[77] := 'toivo';
  emotes[78] := 'rock';
  emotes[79] := 'headbang';
  emotes[80] := 'poolparty';
  emotes[81] := 'swear';
  emotes[82] := 'bug';
  emotes[83] := 'fubar';
  emotes[84] := 'tmi';
  emotes[85] := 'drunk';
  emotes[86] := 'heidy';
end;

procedure TSmileF.ToolButton1Click(Sender: TObject);
begin
  MainF.SS := emotes[TToolButton(Sender).Tag];
  ModalResult := mrOk;
end;

end.
